home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FLASHCOM.DSK / BIT BIN.int < prev    next >
Text File  |  2014-09-09  |  2KB  |  38 lines
  1. 5 TEXT :CALL -936:GOSUB 5000
  2. 6 VTAB 12:PRINT "    W<CTRL-@>ATCH THE BITS<CTRL-@> DROP IN THE BIN!!!"
  3. 10 PRINT "<CTRL-G>","<CTRL-G>","<CTRL-G>":VTAB 23:TAB 8:PRINT MSG$;
  4. 11 FOR N=0 TO 3000:NEXT N
  5. 12 GR :M=0:COLOR= 4
  6. 16 VLIN 0,39 AT 0:VLIN 0,39 AT 1:VLIN 0,39 AT 38:VLIN 0,39 AT 39:HLIN 0,39 AT 38:HLIN 0,39 AT 39
  7. 19 COLOR= 8
  8. 20 HLIN 5,7 AT 0:HLIN 5,7 AT 2:HLIN 5,7 AT 4:PLOT 5,1:PLOT 5,3:PLOT 7,1:PLOT 7,3:VLIN 0,4 AT 9:HLIN 11,13 AT 0
  9. 22 VLIN 0,4 AT 12:VLIN 0,4 AT 21:VLIN 0,4 AT 23:PLOT 22,0:PLOT 22,2:PLOT 22,4:VLIN 0,4 AT 25
  10. 26 VLIN 0,4 AT 27:VLIN 0,4 AT 31:PLOT 28,1:PLOT 29,2:PLOT 30,3
  11. 28 COLOR= 11
  12. 29 FOR I=1 TO 300:PLOT  RND (36)+2, RND (30)+8:NEXT I
  13. 30 Y=5:X= RND (39):IF  SCRN(X,0)#0 THEN 30
  14. 32 C= RND (15)+1:M=M+1:HX=X:HY=Y:IF  SCRN(5,5)#0 AND  SCRN(10,5)#0 THEN 10
  15. 36 VTAB 21:TAB 4:PRINT "THERE ARE NOW ";M;"  BITS IN THE BIN"
  16. 40 IF  SCRN(X,Y+1)=0 THEN 100
  17. 41 FOR Q=1 TO 2
  18. 45 A= PEEK (-16336)+ PEEK (-16336)
  19. 47 FOR Z=1 TO 10:NEXT Z,Q
  20. 50 IF X=0 OR X=39 THEN 30
  21. 60 IF  SCRN(X-1,Y)#0 AND  SCRN(X+1,Y)#0 THEN 30
  22. 70 DX=1:IF  RND (2)=1 THEN DX=-1
  23. 75 IF  SCRN(X+DX,Y)#0 THEN 70
  24. 80 GOTO 300
  25. 100 IF Y=39 THEN 41:Y=Y+1
  26. 110 COLOR= 0:PLOT HX,HY:HX=X:HY=Y:COLOR= C:PLOT X,Y:GOTO 40
  27. 300 X=X+DX:COLOR= 0:PLOT HX,HY:HX=X:HY=Y
  28. 310 COLOR= C:PLOT X,Y
  29. 311 IF Y=39 THEN 320
  30. 315 IF  SCRN(X,Y+1)=0 THEN 40
  31. 320 IF X=0 OR X=39 THEN 30
  32. 330 IF  SCRN(X+DX,Y)#0 THEN 30
  33. 350 GOTO 300
  34. 5000 DIM QWE(2),MSG$(200):QWE=1:QWE(0)=2:MSG$="SLOW INTEGER BASIC VERSION"
  35. 5010 IF QWE=2 THEN 5999
  36. 5020 MSG$="FLASH!  COMPILED  VERSION"
  37. 5999 RETURN 
  38.